﻿Imports Microsoft.VisualBasic

Public Class Aula

#Region "Atributo"

    Private _aulId As Integer
    Private _nombre As String
    Private _estado As String
    Private _descripcion As String

#End Region

#Region "Propiedades"

    Property AulaId() As Integer
        Get
            Return _aulId
        End Get
        Set(ByVal Value As Integer)
            _aulId = Value
        End Set
    End Property

    Property Nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal Value As String)
            _nombre = Value
        End Set
    End Property

    Property Estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal Value As String)
            _estado = Value
        End Set
    End Property

    ReadOnly Property EstadoForDisplay() As String
        Get
            Dim estado As String = ""
            If _estado.Equals("I") Then
                estado = "Inactivo"
            Else
                estado = "Activo"
            End If
            Return estado
        End Get
    End Property

    Property Descripcion() As String
        Get
            Return _descripcion
        End Get
        Set(ByVal Value As String)
            _descripcion = Value
        End Set
    End Property

#End Region

#Region "Constructor"

    Public Sub New(ByVal aulaId As Integer, ByVal nombre As String, ByVal estado As String, ByVal descripcion As String)
        Me._aulId = aulaId
        Me._nombre = nombre
        Me._estado = estado
        Me._descripcion = descripcion
    End Sub

#End Region

End Class
